home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Games / ECS / StarWars / SW-Tools / Blobs / Blobs.amosSourceCode
Encoding:
AMOS Source Code  |  1998-06-24  |  2.6 KB  |  76 lines
  1. Default Palette 0,FFF,111
  2. Screen Open 0,640,200,16,Hires
  3. Rem EmPIRE-Galaxy-Creator 3.0
  4. Rem blobrennen1
  5. Rem by Patrick Henz
  6. BEGIN:
  7. Randomize Timer
  8. Print " STAR WARS - Your own Chapter"
  9. Print " ----------------------------"
  10. Print " Blobrennen Masterprogramm"
  11. Print " Version 1.0 by Patrick Henz"
  12. Print 
  13. Print " 1) Doping"
  14. Print " 2) Rennen"
  15. Print 
  16. Input "RETURN";R$
  17. A=3 : B=2 : C=2 : D=2 : E=2 : F=2 : G=2 : H=2 : I=2 : J=2
  18. Print 
  19. Print " Doping-Phase"
  20. Print " ------------"
  21. Print " (j oder n)"
  22. Input " Soll Blob1 gedopt werden?";A$
  23. If A$="j" Then A=3
  24. Input " Soll Blob2 gedopt werden?";B$
  25. If B$="j" Then B=3
  26. Input " Soll Blob3 gedopt werden?";C$
  27. If C$="j" Then C=3
  28. Input " Soll Blob4 gedopt werden?";D$
  29. If D$="j" Then D=3
  30. Input " Soll Blob5 gedopt werden?";E$
  31. If E$="j" Then E=3
  32. Input " Soll Blob6 gedopt werden?";F$
  33. If F$="j" Then F=3
  34. Input " Soll Blob7 gedopt werden?";G$
  35. If G$="j" Then G=3
  36. Input " Soll Blob8 gedopt werden?";H$
  37. If H$="j" Then H=3
  38. Input " Soll Blob9 gedopt werden?";I$
  39. If I$="j" Then I=3
  40. Input " Soll Blob10 gedopt werden?";J$
  41. If J$="j" Then J=3
  42. Print 
  43. Print " Rennphase"
  44. Print " ---------"
  45. V=Rnd(9) : V=V+1
  46. Print " Blob1 :";A*V : A=A*V
  47. V=Rnd(9) : V=V+1
  48. Print " Blob2 :";B*V : B=B*V
  49. V=Rnd(9) : V=V+1
  50. Print " Blob3 :";C*V : C=C*V
  51. V=Rnd(9) : V=V+1
  52. Print " Blob4 :";D*V : D=D*V
  53. V=Rnd(9) : V=V+1
  54. Print " Blob5 :";E*V : E=E*V
  55. V=Rnd(9) : V=V+1
  56. Print " Blob6 :";F*V : F=F*V
  57. V=Rnd(9) : V=V+1
  58. Print " Blob7 :";G*V : G=G*V
  59. V=Rnd(9) : V=V+1
  60. Print " Blob8 :";H*V : H=H*V
  61. V=Rnd(9) : V=V+1
  62. Print " Blob9 :";I*V : I=I*V
  63. V=Rnd(9) : V=V+1
  64. Print " Blob10:";J*V : J=J*V
  65. Print 
  66. If A=>B and A=>C and A=>D and A=>E and A=>F and A=>G and A=>H and A=>I and A=>J Then Print " Sieger: BLOB1!"
  67. If B=>A and B=>C and B=>D and B=>E and B=>F and B=>G and B=>H and B=>I and B=>J Then Print " Sieger: BLOB2!"
  68. If C=>B and C=>A and C=>D and C=>E and C=>F and C=>G and C=>H and C=>I and C=>J Then Print " Sieger: BLOB3!"
  69. If D=>B and D=>C and D=>A and D=>E and D=>F and D=>G and D=>H and D=>I and D=>J Then Print " Sieger: BLOB4!"
  70. If E=>A and E=>C and E=>D and E=>B and E=>F and E=>G and E=>H and E=>I and E=>J Then Print " Sieger: BLOB5!"
  71. If F=>B and F=>A and F=>D and F=>E and F=>C and F=>G and F=>H and F=>I and F=>J Then Print " Sieger: BLOB6!"
  72. If G=>B and G=>C and G=>D and G=>E and G=>F and G=>A and G=>H and G=>I and G=>J Then Print " Sieger: BLOB7!"
  73. If H=>A and H=>C and H=>D and H=>E and H=>F and H=>G and H=>B and H=>I and H=>J Then Print " Sieger: BLOB8!"
  74. If I=>B and I=>A and I=>D and I=>E and I=>F and I=>G and I=>H and I=>C and I=>J Then Print " Sieger: BLOB9!"
  75. If J=>B and J=>C and J=>A and J=>E and J=>F and J=>G and J=>H and J=>I and J=>D Then Print " Sieger: BLOB10!"
  76. Input " ENDE";E$